home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1995 April / Internet Tools.iso / applic / ntp / depredated / ntp.3.4 / patches / patch1.Z / patch1
Encoding:
Text File  |  1991-09-29  |  19.0 KB  |  760 lines
  1. System: ntp version 3.4
  2. Patch #: 1
  3. Priority: 
  4. Updated distribution directory.
  5.  
  6.     Add LIBS macro to Makefile directives which link ntp, ntpdc, ntpd and
  7.     test programs.
  8.  
  9.     Add symbolic version identifier to Makefile install targets for
  10.     proper directory name.
  11.  
  12.     Shorten timeout interval and clean up timeout message.
  13.  
  14.     Don't zero the drift compensation or compliance values when a step
  15.     adjustment of the clock occurs.  Use symbolic definition of
  16.     CLOCK_FACTOR rather than constant.
  17.  
  18.     sys.refid could have garbage left if the peer we're synchronized to
  19.     is lost.
  20.  
  21.     Diddle syslog messages a bit.  Handle case of udp/ntp not being
  22.     defined in /etc/services.  Compute default value for tickadj if
  23.     the change-kernel-tickadj flag is set, but no tickadj directive
  24.     is present in the configuration file.
  25.  
  26.     Delete unused variables.  Display interface address in numeric form
  27.     for local address, rather than symbolically.  For multiple host
  28.     queries, the name of the host is emitted prior to the data for that
  29.     host.
  30.  
  31.  
  32.  
  33. Repeat-By:
  34.  
  35. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your ntp source
  36.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  37.     If you don't have the patch program, apply the following by hand,
  38.     or get patch (version 2.0, latest patchlevel).
  39.  
  40.     After patching:
  41.         make depend
  42.         make
  43.         make install
  44.  
  45.     If patch indicates that patchlevel is the wrong version, you may need
  46.     to apply one or more previous patches, or the patch may already
  47.     have been applied.  See the patchlevel.h file to find out what has or
  48.     has not been applied.  In any event, don't continue with the patch.
  49.  
  50.     If you are missing previous patches (hah!) they can be obtained from me:
  51.  
  52.     Louis A. Mamakos
  53.     louie@trantor.umd.edu
  54.  
  55.     You can also get the patches via anonymous FTP from
  56.     trantor.umd.edu.
  57.  
  58. Index: patchlevel.h
  59. Prereq: 0
  60. 1c1
  61. < #define PATCHLEVEL 0
  62. ---
  63. > #define PATCHLEVEL 1
  64.  
  65. Index: Makefile
  66. Prereq: 3.4
  67. *** Makefile.old    Mon Mar 20 00:15:06 1989
  68. --- Makefile    Mon Mar 20 00:15:07 1989
  69. ***************
  70. *** 1,6 ****
  71. ! # $Header: /usr/users/louie/ntp/RCS/Makefile,v 3.4 89/03/17 18:36:37 louie Exp $
  72.   #
  73.   # $Log:    Makefile,v $
  74.   # Revision 3.4  89/03/17  18:36:37  louie
  75.   # Latest test release.
  76.   # 
  77. --- 1,13 ----
  78. ! # $Header: /usr/users/louie/ntp/RCS/Makefile,v 3.4.1.1 89/03/20 00:01:24 louie Exp Locker: louie $
  79.   #
  80.   # $Log:    Makefile,v $
  81. + # Revision 3.4.1.1  89/03/20  00:01:24  louie
  82. + # patch1: Add LIBS macro to Makefile directives which link ntp, ntpdc, ntpd and
  83. + # patch1: test programs.
  84. + # patch1:  
  85. + # patch1: Add symbolic version identifier to Makefile install targets for
  86. + # patch1: proper directory name.
  87. + # 
  88.   # Revision 3.4  89/03/17  18:36:37  louie
  89.   # Latest test release.
  90.   # 
  91. ***************
  92. *** 33,38 ****
  93. --- 40,48 ----
  94.   BINDIR=/usr/local/etc
  95.   LINKDIR=/etc
  96.   LIBS=
  97. + 
  98. + VERS=3.4
  99. + 
  100.   #CC=gcc -g -W -Wall
  101.   CC=gcc -g -W
  102.   
  103. ***************
  104. *** 97,116 ****
  105.       @./ntest
  106.   
  107.   ntp:    ntp.o ntpsubs.o
  108. !     ${CC} ${LDFLAGS} -o ntp ntp.o ntpsubs.o
  109.   
  110.   ntpd:    ${NTPDOBJ}
  111.       ${CC} ${LDFLAGS} -o ntpd ntpd.o ntpsubs.o ntp_adjust.o ntp_proto.o \
  112. !         ntp_sock.o
  113.   
  114.   ntpdc: ntpdc.o
  115. !     ${CC} ${LDFLAGS} -o ntpdc ntpdc.o
  116.   
  117.   ntest: test.o ntpsubs.o
  118. !     ${CC} ${LDFLAGS} -o ntest test.o ntpsubs.o
  119.   
  120.   sock_test: ntp_sock.c
  121. !     ${CC} ${LDFLAGS} -DTEST -o sock_test ntp_sock.c
  122.   
  123.   ${OBJS}:    ntp.h Makefile
  124.   
  125. --- 107,126 ----
  126.       @./ntest
  127.   
  128.   ntp:    ntp.o ntpsubs.o
  129. !     ${CC} ${LDFLAGS} -o ntp ntp.o ntpsubs.o ${LIBS}
  130.   
  131.   ntpd:    ${NTPDOBJ}
  132.       ${CC} ${LDFLAGS} -o ntpd ntpd.o ntpsubs.o ntp_adjust.o ntp_proto.o \
  133. !         ntp_sock.o ${LIBS}
  134.   
  135.   ntpdc: ntpdc.o
  136. !     ${CC} ${LDFLAGS} -o ntpdc ntpdc.o ${LIBS}
  137.   
  138.   ntest: test.o ntpsubs.o
  139. !     ${CC} ${LDFLAGS} -o ntest test.o ntpsubs.o ${LIBS}
  140.   
  141.   sock_test: ntp_sock.c
  142. !     ${CC} ${LDFLAGS} -DTEST -o sock_test ntp_sock.c ${LIBS}
  143.   
  144.   ${OBJS}:    ntp.h Makefile
  145.   
  146. ***************
  147. *** 150,159 ****
  148.       lint -bac ${DEFINES} ${NTPDSRC}
  149.   
  150.   dist:    ntp.tar.Z
  151. !     mv ntp.tar.Z /usr/ftp/pub/ntp.3.2/ntp.tar.Z
  152.   
  153.   test-dist:    ntp.tar.Z
  154. !     mv ntp.tar.Z /usr/ftp/pub/ntp.3.2/ntp-test.tar.Z
  155.   
  156.   ntp.tar.Z:    ${DIST}
  157.       ident ${DIST} | grep Header | \
  158. --- 160,169 ----
  159.       lint -bac ${DEFINES} ${NTPDSRC}
  160.   
  161.   dist:    ntp.tar.Z
  162. !     mv ntp.tar.Z /usr/ftp/pub/ntp.${VERS}/ntp.tar.Z
  163.   
  164.   test-dist:    ntp.tar.Z
  165. !     mv ntp.tar.Z /usr/ftp/pub/ntp.${VERS}/ntp-test.tar.Z
  166.   
  167.   ntp.tar.Z:    ${DIST}
  168.       ident ${DIST} | grep Header | \
  169.  
  170. Index: ntp.c
  171. Prereq: 3.4
  172. *** ntp.c.old    Mon Mar 20 00:15:10 1989
  173. --- ntp.c    Mon Mar 20 00:15:11 1989
  174. ***************
  175. *** 1,9 ****
  176.   #ifndef    lint
  177. ! static char *rcsid = "$Header: /usr/users/louie/ntp/RCS/ntp.c,v 3.4 89/03/17 18:36:54 louie Exp $";
  178.   #endif    lint
  179.   
  180.   /*
  181.    *  $Log:    ntp.c,v $
  182.    * Revision 3.4  89/03/17  18:36:54  louie
  183.    * Latest test release.
  184.    * 
  185. --- 1,12 ----
  186.   #ifndef    lint
  187. ! static char *rcsid = "$Header: /usr/users/louie/ntp/RCS/ntp.c,v 3.4.1.1 89/03/20 00:02:32 louie Exp Locker: louie $";
  188.   #endif    lint
  189.   
  190.   /*
  191.    *  $Log:    ntp.c,v $
  192. +  * Revision 3.4.1.1  89/03/20  00:02:32  louie
  193. +  * patch1: Shorten timeout interval and clean up timeout message.
  194. +  * 
  195.    * Revision 3.4  89/03/17  18:36:54  louie
  196.    * Latest test release.
  197.    * 
  198. ***************
  199. *** 93,99 ****
  200.       };
  201.   
  202.   #define RETRY_COUNT    2    /* number of times we want to retry */
  203. ! #define TIME_OUT        60    /* time to wait for reply, in secs */
  204.   
  205.   
  206.   struct sockaddr_in sin = {AF_INET};
  207. --- 96,102 ----
  208.       };
  209.   
  210.   #define RETRY_COUNT    2    /* number of times we want to retry */
  211. ! #define TIME_OUT        10    /* time to wait for reply, in secs */
  212.   
  213.   
  214.   struct sockaddr_in sin = {AF_INET};
  215. ***************
  216. *** 202,212 ****
  217.               exit(1);
  218.           }
  219.           if (n == 0) {
  220. !             fprintf(stderr,"\n\t* Timeout *\n");
  221.               if (--retry)
  222.                   --host;
  223.               else {
  224. !                 fprintf(stderr,"\nHost %s is not responding\n",
  225.                          argv[host]);
  226.                   retry = RETRY_COUNT;
  227.               }
  228. --- 205,215 ----
  229.               exit(1);
  230.           }
  231.           if (n == 0) {
  232. !             fprintf(stderr,"*Timeout*\n");
  233.               if (--retry)
  234.                   --host;
  235.               else {
  236. !                 fprintf(stderr,"Host %s is not responding\n",
  237.                          argv[host]);
  238.                   retry = RETRY_COUNT;
  239.               }
  240.  
  241. Index: ntp.h
  242. Prereq: 3.4
  243. *** ntp.h.old    Mon Mar 20 00:15:14 1989
  244. --- ntp.h    Mon Mar 20 00:15:15 1989
  245. ***************
  246. *** 1,7 ****
  247. ! /* $Header: /usr/users/louie/ntp/RCS/ntp.h,v 3.4 89/03/17 18:37:00 louie Exp $ */
  248.   
  249.   /*
  250.    *  $Log:    ntp.h,v $
  251.    * Revision 3.4  89/03/17  18:37:00  louie
  252.    * Latest test release.
  253.    * 
  254. --- 1,10 ----
  255. ! /* $Header: /usr/users/louie/ntp/RCS/ntp.h,v 3.4.1.1 89/03/20 00:02:53 louie Exp Locker: louie $ */
  256.   
  257.   /*
  258.    *  $Log:    ntp.h,v $
  259. +  * Revision 3.4.1.1  89/03/20  00:02:53  louie
  260. +  * 1
  261. +  * 
  262.    * Revision 3.4  89/03/17  18:37:00  louie
  263.    * Latest test release.
  264.    * 
  265. ***************
  266. *** 150,156 ****
  267.   #define    CLOCK_FREQ    10    /* frequency shift */
  268.   #define    CLOCK_TRACK    8
  269.   #define    CLOCK_COMP    4
  270. ! #define    CLOCK_FACTOR    18    /* 18?? */
  271.   
  272.   /*
  273.    * Structure definitions for NTP fixed point values
  274. --- 153,159 ----
  275.   #define    CLOCK_FREQ    10    /* frequency shift */
  276.   #define    CLOCK_TRACK    8
  277.   #define    CLOCK_COMP    4
  278. ! #define    CLOCK_FACTOR    18
  279.   
  280.   /*
  281.    * Structure definitions for NTP fixed point values
  282.  
  283. Index: ntp_adjust.c
  284. Prereq: 3.4
  285. *** ntp_adjust.c.old    Mon Mar 20 00:15:18 1989
  286. --- ntp_adjust.c    Mon Mar 20 00:15:19 1989
  287. ***************
  288. *** 1,5 ****
  289.   #ifndef lint
  290. ! static char *RCSid = "$Header: /usr/users/louie/ntp/RCS/ntp_adjust.c,v 3.4 89/03/17 18:37:03 louie Exp $";
  291.   #endif
  292.   
  293.   /*
  294. --- 1,5 ----
  295.   #ifndef lint
  296. ! static char *RCSid = "$Header: /usr/users/louie/ntp/RCS/ntp_adjust.c,v 3.4.1.1 89/03/20 00:09:06 louie Exp Locker: louie $";
  297.   #endif
  298.   
  299.   /*
  300. ***************
  301. *** 7,12 ****
  302. --- 7,17 ----
  303.    * 5. of the NTP specification.
  304.    *
  305.    * $Log:    ntp_adjust.c,v $
  306. +  * Revision 3.4.1.1  89/03/20  00:09:06  louie
  307. +  * patch1: Don't zero the drift compensation or compliance values when a step
  308. +  * patch1: adjustment of the clock occurs.  Use symbolic definition of
  309. +  * patch1: CLOCK_FACTOR rather than constant.
  310. +  * 
  311.    * Revision 3.4  89/03/17  18:37:03  louie
  312.    * Latest test release.
  313.    * 
  314. ***************
  315. *** 147,160 ****
  316.               return(-1);
  317.           }
  318.           clock_adjust = 0.0;
  319. -         /*
  320. -          * I reset the drift_comp here since things were screwed
  321. -          * up very bad if the clock reset and you can't be sure
  322. -          * if the drift_comp was meaningful.  Also mark us restarting
  323. -          * the recurance and reset the update timer.
  324. -          */
  325. -         drift_comp = 0.0;
  326. -         compliance = 0.0;
  327.           firstpass = 1;
  328.           update_timer = 0;
  329.           return (1);      /* indicate that step adjustment was done */
  330. --- 152,157 ----
  331. ***************
  332. *** 172,178 ****
  333.               firstpass = 0;
  334.           else if (update_timer > 0) {
  335.               ai = abs(compliance);
  336. !             ai = (double)(1<<CLOCK_COMP) - (double)(1<<18) * ai;
  337.               if (ai < 1.0)        /* max(... , 1.0) */
  338.                   ai = 1.0;
  339.               drift_comp += offset / (ai * (double)update_timer);
  340. --- 169,176 ----
  341.               firstpass = 0;
  342.           else if (update_timer > 0) {
  343.               ai = abs(compliance);
  344. !             ai = (double)(1<<CLOCK_COMP) - 
  345. !                 (double)(1<<CLOCK_FACTOR) * ai;
  346.               if (ai < 1.0)        /* max(... , 1.0) */
  347.                   ai = 1.0;
  348.               drift_comp += offset / (ai * (double)update_timer);
  349.  
  350. Index: ntp_proto.c
  351. Prereq: 3.4
  352. *** ntp_proto.c.old    Mon Mar 20 00:15:22 1989
  353. --- ntp_proto.c    Mon Mar 20 00:15:23 1989
  354. ***************
  355. *** 1,5 ****
  356.   #ifndef    lint
  357. ! static char *rcsid = "$Header: /usr/users/louie/ntp/RCS/ntp_proto.c,v 3.4 89/03/17 18:37:05 louie Exp $";
  358.   #endif
  359.   
  360.   /*
  361. --- 1,5 ----
  362.   #ifndef    lint
  363. ! static char *rcsid = "$Header: /usr/users/louie/ntp/RCS/ntp_proto.c,v 3.4.1.1 89/03/20 00:10:06 louie Exp Locker: louie $";
  364.   #endif
  365.   
  366.   /*
  367. ***************
  368. *** 10,15 ****
  369. --- 10,19 ----
  370.    *
  371.    *
  372.    * $Log:    ntp_proto.c,v $
  373. +  * Revision 3.4.1.1  89/03/20  00:10:06  louie
  374. +  * patch1: sys.refid could have garbage left if the peer we're synchronized to
  375. +  * patch1: is lost.
  376. +  * 
  377.    * Revision 3.4  89/03/17  18:37:05  louie
  378.    * Latest test release.
  379.    * 
  380. ***************
  381. *** 774,779 ****
  382. --- 778,784 ----
  383.   #endif
  384.           sys.peer = NULL;
  385.           sys.stratum = 0;
  386. +         sys.refid = 'N'<<24 | 'O'<<16 | 'N'<<8 | 'E';
  387.           return;
  388.       }
  389.   
  390.  
  391. Index: ntpd.c
  392. Prereq: 3.4
  393. *** ntpd.c.old    Mon Mar 20 00:15:29 1989
  394. --- ntpd.c    Mon Mar 20 00:15:30 1989
  395. ***************
  396. *** 1,9 ****
  397.   #ifndef    lint
  398. ! static char *rcsid = "$Header: /usr/users/louie/ntp/RCS/ntpd.c,v 3.4 89/03/17 18:37:11 louie Exp $";
  399.   #endif    lint
  400.   
  401.   /*
  402.    *  $Log:    ntpd.c,v $
  403.    * Revision 3.4  89/03/17  18:37:11  louie
  404.    * Latest test release.
  405.    * 
  406. --- 1,15 ----
  407.   #ifndef    lint
  408. ! static char *rcsid = "$Header: /usr/users/louie/ntp/RCS/ntpd.c,v 3.4.1.1 89/03/20 00:12:10 louie Exp Locker: louie $";
  409.   #endif    lint
  410.   
  411.   /*
  412.    *  $Log:    ntpd.c,v $
  413. +  * Revision 3.4.1.1  89/03/20  00:12:10  louie
  414. +  * patch1: Diddle syslog messages a bit.  Handle case of udp/ntp not being
  415. +  * patch1: defined in /etc/services.  Compute default value for tickadj if
  416. +  * patch1: the change-kernel-tickadj flag is set, but no tickadj directive
  417. +  * patch1: is present in the configuration file.
  418. +  * 
  419.    * Revision 3.4  89/03/17  18:37:11  louie
  420.    * Latest test release.
  421.    * 
  422. ***************
  423. *** 225,235 ****
  424.           setlogmask(LOG_UPTO(LOG_INFO));
  425.   #endif    /* LOG_DAEMON */
  426.   
  427. !     syslog(LOG_INFO, "%s version $Revision: 3.4 $ patchlevel %d",
  428. !            prog_name, PATCHLEVEL);
  429.   #ifdef    DEBUG
  430.       if (debug)
  431. !         printf("%s version $Revision: 3.4 $ patchlevel %d\n",
  432.                  prog_name, PATCHLEVEL);
  433.   #endif
  434.       (void) setpriority(PRIO_PROCESS, 0, -10);
  435. --- 231,242 ----
  436.           setlogmask(LOG_UPTO(LOG_INFO));
  437.   #endif    /* LOG_DAEMON */
  438.   
  439. !     syslog(LOG_NOTICE, "%s version $Revision: 3.4.1.1 $", prog_name);
  440. !     syslog(LOG_NOTICE, "patchlevel %d", PATCHLEVEL);
  441. ! 
  442.   #ifdef    DEBUG
  443.       if (debug)
  444. !         printf("%s version $Revision: 3.4.1.1 $ patchlevel %d\n",
  445.                  prog_name, PATCHLEVEL);
  446.   #endif
  447.       (void) setpriority(PRIO_PROCESS, 0, -10);
  448. ***************
  449. *** 236,249 ****
  450.   
  451.       servp = getservbyname("ntp", "udp");
  452.       if (servp == NULL) {
  453. !         syslog(LOG_CRIT, "udp/ntp: service unknown\n");
  454. !         exit(1);
  455. !     }
  456.   
  457.       peer_list.head = peer_list.tail = NULL;
  458.       peer_list.members = 0;
  459.   
  460. -     (void) create_sockets(servp->s_port);
  461.       init_ntp(conf);
  462.       init_kern_vars();
  463.       init_logical_clock();
  464. --- 243,258 ----
  465.   
  466.       servp = getservbyname("ntp", "udp");
  467.       if (servp == NULL) {
  468. !         syslog(LOG_CRIT, "udp/ntp: service unknown, using default %d",
  469. !                NTP_PORT);
  470. !         (void) create_sockets(htons(NTP_PORT));
  471. !     } else
  472. !         (void) create_sockets(servp->s_port);
  473.   
  474. + 
  475.       peer_list.head = peer_list.tail = NULL;
  476.       peer_list.members = 0;
  477.   
  478.       init_ntp(conf);
  479.       init_kern_vars();
  480.       init_logical_clock();
  481. ***************
  482. *** 295,302 ****
  483.   #endif
  484.       selfds++;
  485.   
  486. -     syslog(LOG_INFO, "%d sockets open", nintf);
  487. - 
  488.       (void) setitimer(ITIMER_REAL, itp, (struct itimerval *) 0);
  489.   
  490.       for (;;) {        /* go into a finite but hopefully very long
  491. --- 304,309 ----
  492. ***************
  493. *** 889,894 ****
  494. --- 896,911 ----
  495.                  dotickadj);
  496.       }
  497.   #endif
  498. +     /*
  499. +      *  If desired value of tickadj is not specified in the configuration
  500. +      *  file, compute a "reasonable" value here, based on the assumption 
  501. +      *  that we don't have to slew more than 2ms every 4 seconds.
  502. +      *
  503. +      *  TODO: the 500 needs to be parameterized.
  504. +      */
  505. +     if (tickadj == 0 && kern_hz)
  506. +         tickadj = 500/kern_hz;
  507. + 
  508.       if (dotickadj && tickadj && (tickadj != kern_tickadj)) {
  509.           close(kmem);
  510.           if ((kmem = open(memory, O_RDWR)) >= 0) {
  511.  
  512. Index: ntpdc.c
  513. Prereq: 3.4
  514. *** ntpdc.c.old    Mon Mar 20 00:15:35 1989
  515. --- ntpdc.c    Mon Mar 20 00:15:35 1989
  516. ***************
  517. *** 1,9 ****
  518.   #ifndef    lint
  519. ! static char *RCSid = "$Header: /usr/users/louie/ntp/RCS/ntpdc.c,v 3.4 89/03/17 18:37:16 louie Exp $";
  520.   #endif
  521.   
  522.   /*
  523.    * $Log:    ntpdc.c,v $
  524.    * Revision 3.4  89/03/17  18:37:16  louie
  525.    * Latest test release.
  526.    * 
  527. --- 1,15 ----
  528.   #ifndef    lint
  529. ! static char *RCSid = "$Header: /usr/users/louie/ntp/RCS/ntpdc.c,v 3.4.1.1 89/03/20 00:13:41 louie Exp Locker: louie $";
  530.   #endif
  531.   
  532.   /*
  533.    * $Log:    ntpdc.c,v $
  534. +  * Revision 3.4.1.1  89/03/20  00:13:41  louie
  535. +  * patch1: Delete unused variables.  Display interface address in numeric form
  536. +  * patch1: for local address, rather than symbolically.  For multiple host
  537. +  * patch1: queries, the name of the host is emitted prior to the data for that
  538. +  * patch1: host.
  539. +  * 
  540.    * Revision 3.4  89/03/17  18:37:16  louie
  541.    * Latest test release.
  542.    * 
  543. ***************
  544. *** 84,90 ****
  545.       int argc;
  546.       char *argv[];
  547.   {
  548. -     int count = 0;
  549.       char *p;
  550.       int on = 48*1024;
  551.   
  552. --- 90,95 ----
  553. ***************
  554. *** 116,121 ****
  555. --- 121,128 ----
  556.           }
  557.           argc--, argv++;
  558.       }
  559. +     if (argc > 1)
  560. +         printf("--- %s ---\n", *argv);
  561.       while (argc > 0) {
  562.           /*
  563.            * Get a new socket each time - this will cause us to ignore
  564. ***************
  565. *** 134,140 ****
  566.           query(*argv);
  567.           answer();
  568.           close(s);
  569. !         argv++, argc--;
  570.       }
  571.   
  572.   }
  573. --- 141,149 ----
  574.           query(*argv);
  575.           answer();
  576.           close(s);
  577. !         argv++;
  578. !         if (argc-- > 1)
  579. !             printf("--- %s ---\n", *argv);
  580.       }
  581.   
  582.   }
  583. ***************
  584. *** 264,270 ****
  585.       double offset[PEER_SHIFT], delay[PEER_SHIFT], dsp,del,off;
  586.       char c;
  587.       char *cvthname();
  588. -     static int count = 0;
  589.   
  590.       sin.sin_addr.s_addr = n->net_address;
  591.       for (i = 0; i < PEER_SHIFT; i++) {
  592. --- 273,278 ----
  593. ***************
  594. *** 283,289 ****
  595.       printf("%c%-15.15s ", c, cvthname(&sin));
  596.       sin.sin_addr.s_addr = n->my_address;
  597.       printf("%-16.16s %2d %4d  %03o  %8.1f %8.1f %8.1f\n",
  598. !            sin.sin_addr.s_addr ? cvthname(&sin) : "wildcard", 
  599.              n->stratum, (int)ntohl((u_long)n->timer), 
  600.              ntohs(n->reach) & SHIFT_MASK, del, off, dsp);
  601.   }    
  602. --- 291,297 ----
  603.       printf("%c%-15.15s ", c, cvthname(&sin));
  604.       sin.sin_addr.s_addr = n->my_address;
  605.       printf("%-16.16s %2d %4d  %03o  %8.1f %8.1f %8.1f\n",
  606. !            sin.sin_addr.s_addr ? inet_ntoa(sin.sin_addr) : "wildcard", 
  607.              n->stratum, (int)ntohl((u_long)n->timer), 
  608.              ntohs(n->reach) & SHIFT_MASK, del, off, dsp);
  609.   }    
  610.  
  611. Index: stat.pl
  612. Prereq: 3.4
  613. *** stat.pl.old    Mon Mar 20 00:15:39 1989
  614. --- stat.pl    Mon Mar 20 00:15:40 1989
  615. ***************
  616. *** 15,23 ****
  617.   #
  618.   #  The -S option will "save" the intermedite data files, which are normally
  619.   #  deleted.
  620.   
  621. - 
  622. - #  Extract drift value from the hourly stat: syslog message.
  623.   #
  624.   # Mar  7 18:46:58 trantor ntpd[20838]: adjust: SLEW 192.41.177.92 st 2 
  625.   #    off -0.015756 drft 0.000000 cmpl 0.000000
  626. --- 15,26 ----
  627.   #
  628.   #  The -S option will "save" the intermedite data files, which are normally
  629.   #  deleted.
  630. + #
  631. + #  Louis A. Mamakos <louie@TRANTOR.UMD.EDU>
  632. + #  with many thanks to Larry Wall for `perl', a wonderful tool for hacking
  633. + #  up things like this so easily.
  634. + #
  635.   
  636.   #
  637.   # Mar  7 18:46:58 trantor ntpd[20838]: adjust: SLEW 192.41.177.92 st 2 
  638.   #    off -0.015756 drft 0.000000 cmpl 0.000000
  639. ***************
  640. *** 25,30 ****
  641. --- 28,35 ----
  642.   #    was 130.126.174.40 stratum 1
  643.   #
  644.   #
  645. + $scriptfile = $0;
  646. + 
  647.   $month{'Jan'} = 0; $month{'Feb'} = 1; $month{'Mar'} = 2; $month{'Apr'} = 3;
  648.   $month{'May'} = 4; $month{'Jun'} = 5; $month{'Jul'} = 6; $month{'Aug'} = 7;
  649.   $month{'Sep'} = 8; $month{'Oct'} = 9; $month{'Nov'} = 10; $month{'Dec'} = 11;
  650. ***************
  651. *** 34,39 ****
  652. --- 39,45 ----
  653.   die "Can't open compliance file\n" unless open(COMP, ">stats.comp");
  654.   die "Can't open clock file\n" unless open(CLK, ">stats.clk");
  655.   
  656. + $# = '%.6g';
  657.   $plottype = "postscript";
  658.   $recs = 0;
  659.   $start = 0;
  660. ***************
  661. *** 40,47 ****
  662.   $clocks = 1;
  663.   $clk{'UNSYNCED'} = 0;
  664.   
  665. ! do Getopt('ti');
  666.   
  667.   if ($opt_t) {
  668.       $plottype = $opt_t;
  669.   }
  670. --- 46,57 ----
  671.   $clocks = 1;
  672.   $clk{'UNSYNCED'} = 0;
  673.   
  674. ! do Getopt('tiSo');
  675.   
  676. + if ($opt_h) {
  677. +    die "Usage: $scriptfile [-o outputfile] [-i interval] [-t termtype] [-S] < logmessages\n";
  678. + }
  679. + 
  680.   if ($opt_t) {
  681.       $plottype = $opt_t;
  682.   }
  683. ***************
  684. *** 107,113 ****
  685.       }
  686.   }
  687.   
  688. ! $last = int($t + 0.99999);
  689.   printf "%d records spanning %4.2f hours.\n", $recs, $t;
  690.   
  691.   close OFF;
  692. --- 117,127 ----
  693.       }
  694.   }
  695.   
  696. ! if ($t = int($t)) {
  697. !     $last = int($t) + 1;
  698. ! } else {
  699. !     $last = int($t);
  700. ! }
  701.   printf "%d records spanning %4.2f hours.\n", $recs, $t;
  702.   
  703.   close OFF;
  704. ***************
  705. *** 131,143 ****
  706.   #
  707.   print TMP "set samples ",$recs,"\n";
  708.   print TMP "set term $plottype\n";
  709. - print TMP 'set output "stats.plot"'; print TMP "\n";
  710.   
  711.   if ($interval > $last) {
  712. !     print "Interval truncated to available data ($last)\n";
  713.       $interval = $last;
  714.   }
  715. ! 
  716.   $start = 0;
  717.   $end = $interval;
  718.   while (($start < $last)) {
  719. --- 145,167 ----
  720.   #
  721.   print TMP "set samples ",$recs,"\n";
  722.   print TMP "set term $plottype\n";
  723.   
  724. + if ($opt_o) {
  725. +     printf TMP 'set output "%s"', $opt_o; print TMP "\n";
  726. + } else {
  727. +     print TMP 'set output "stats.plot"'; print TMP "\n";
  728. + }
  729. + 
  730.   if ($interval > $last) {
  731. !     if ($interval != 99999999) {
  732. !         print "Interval truncated to available data ($last)\n";
  733. !     }
  734.       $interval = $last;
  735.   }
  736. ! #
  737. ! #  Plot multiple sets of plots, each set of which covers the specified number
  738. ! #  of hours.
  739. ! #
  740.   $start = 0;
  741.   $end = $interval;
  742.   while (($start < $last)) {
  743. ***************
  744. *** 167,173 ****
  745.       unlink "stats.clk";
  746.   }
  747.   
  748. ! ;# $Header: /usr/users/louie/ntp/RCS/stat.pl,v 3.4 89/03/17 18:37:30 louie Exp $
  749.   
  750.   ;# Process single-character switches with switch clustering.  Pass one argument
  751.   ;# which is a string containing all switches that take an argument.  For each
  752. --- 191,197 ----
  753.       unlink "stats.clk";
  754.   }
  755.   
  756. ! ;# $Header: /usr/users/louie/ntp/RCS/stat.pl,v 3.4.1.1 89/03/20 00:14:56 louie Exp Locker: louie $
  757.   
  758.   ;# Process single-character switches with switch clustering.  Pass one argument
  759.   ;# which is a string containing all switches that take an argument.  For each
  760.